home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Cream of the Crop 25
/
Cream of the Crop 25.iso
/
program
/
dv_b1.zip
/
DV_B1.EXE
/
dview.exe
/
0
/
RCDATA
/
TFORM1
/
TFORM1.txt
< prev
Wrap
Text File
|
1997-02-07
|
19KB
|
641 lines
object Form1: TForm1
Left = 164
Top = 106
AutoScroll = False
Caption = 'DViewer'
ClientHeight = 391
ClientWidth = 699
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
Icon.Data = {<image000.ico>}
Position = poScreenCenter
OnActivate = FormActivate
OnClose = FormClose
OnCreate = FormCreate
PixelsPerInch = 96
TextHeight = 13
object LMDFill1: TLMDFill
Left = 0
Top = 0
Width = 699
Height = 49
Align = alTop
Bevel.StyleInner = bvLowered
Bevel.StyleOuter = bvRaised
Bevel.WidthOuter = 2
Bevel.BorderWidth = 1
Bevel.BorderInnerWidth = 1
Caption.Font.Color = clWindowText
Caption.Font.Height = -11
Caption.Font.Name = 'MS Sans Serif'
Caption.Font.Style = []
FillObject.Gradient.Color = clAqua
FillObject.Gradient.ColorCount = 236
FillObject.Gradient.Style = gstElliptic
FillObject.Gradient.EndColor = clSilver
FillObject.Brush.Color = clAqua
FillObject.Brush.Style = bsCross
end
object bt_open: TExplorerButton
Left = 4
Top = 4
Width = 50
Height = 40
Hint = 'Select a table to open...'
Caption = 'Open'
OnClick = bt_openClick
Bitmap.Data = {
4E010000424D4E01000000000000760000002800000012000000120000000100
040000000000D800000000000000000000001000000010000000000000000000
BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
3333330000003333333333333333330000003333333333333333330000003800
000000000003330000003007B7B7B7B7B7B03300000030F07B7B7B7B7B703300
000030B0B7B7B7B7B7B70300000030FB0B7B7B7B7B7B0300000030BF07B7B7B7
B7B7B000000030FBF000007B7B7B7000000030BFBFBFBF0000000300000030FB
FBFBFBFBFB033300000030BFBFBFBFBFBF033300000030FBFBF0000000333300
0000330000033333333333000000333333333333333333000000333333333333
333333000000333333333333333333000000}
ShowHint = False
ParentShowHint = False
Alignment = taCenter
DropDownMenu = PopupMenu1
end
object bt_close: TExplorerButton
Left = 56
Top = 4
Width = 50
Height = 40
Hint = 'Close Table'
Caption = 'Close'
OnClick = bt_closeClick
Bitmap.Data = {
E6000000424DE60000000000000076000000280000000E0000000E0000000100
0400000000007000000000000000000000001000000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
3300333333333333330030000000000333000BFBFBFBFB0333000FBFBFBFBF03
33000BFBFBFBFB0333000FBFBFBFBF0333000BFBFBFBFB0333000FBFBFBFBF03
3300000000000033330030FBFB03333333003800008333333300333333333333
33003333333333333300}
ShowHint = False
ParentShowHint = False
Enabled = False
Alignment = taCenter
end
object LMDFill2: TLMDFill
Left = 0
Top = 49
Width = 699
Height = 317
Align = alClient
Bevel.StyleInner = bvLowered
Bevel.StyleOuter = bvRaised
Bevel.WidthOuter = 2
Bevel.BorderWidth = 1
Bevel.BorderInnerWidth = 1
Caption.Font.Color = clWindowText
Caption.Font.Height = -11
Caption.Font.Name = 'MS Sans Serif'
Caption.Font.Style = []
Color = clSilver
ParentColor = False
end
object Label1: TLabel
Left = 12
Top = 60
Width = 3
Height = 13
Visible = False
end
object bt_filter: TExplorerButton
Left = 108
Top = 4
Width = 50
Height = 40
Hint = 'Apply filter(s) to the table'
Caption = 'Filter'
OnClick = bt_filterClick
Bitmap.Data = {
4E010000424D4E01000000000000760000002800000012000000120000000100
040000000000D800000000000000000000001000000010000000000000000000
BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
7777770000007777777777777777770000007777770007777700070000007777
770F0777770F0700000077777700087778000700000077777700000000000700
00007777770F0000F000070000007777770F0000F00007000000780000000000
00000700000070FBFB00000800007700000070BFBFBF00B070077700000070FB
FBFB00F070077700000070BFBFBF00B070077700000070FBFBFBFBF077777700
000070BFBFBFBFB077777700000070FBF0000008777777000000770007777777
777777000000777777777777777777000000}
ShowHint = False
ParentShowHint = False
Enabled = False
Alignment = taCenter
end
object bt_search: TExplorerButton
Left = 160
Top = 4
Width = 50
Height = 40
Hint = 'Perform a search'
Caption = 'Search'
OnClick = bt_searchClick
Bitmap.Data = {
66010000424D6601000000000000760000002800000014000000140000000100
040000000000F000000000000000000000001000000010000000000000000000
8000008000000080800080000000800080008080000080808000C0C0C0000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
3333333300003333333333333300333300003333333333333333333300003333
3333333333003333000033033333333333003333000030003333333333300333
00000F000333333330330033000030F000333333300330030000330F00000007
3300003300003330F0078887033333330000333300788FF87033333300003333
0788888F877333330000333308888888F80333330000333307888888F8033333
00003333078FF8888803333300003333777FF888877333330000333330778888
7033333300003333330777770333333300003333333700073333333300003333
33333333333333330000}
ShowHint = False
ParentShowHint = False
Enabled = False
Alignment = taCenter
end
object bt_exit: TExplorerButton
Left = 316
Top = 4
Width = 50
Height = 40
Hint = 'Leave Program'
Caption = 'Exit'
OnClick = bt_exitClick
Bitmap.Data = {
80010000424D8001000000000000760000002800000014000000140000000100
040000000000F000000000000000000000000000000000000000000000000000
BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
7777777700007777711111111177777700007777199999999917777700007771
9999999999917777000077199999999999991777000071999999999999999177
000019999999999999999917000019FFF99F99FFF9F9991700001999F99F99F9
F9F99917000019FFF99F99F9F9FFF917000019F9999F99F9F9F9F917000019FF
F9FFF9FFF9FFF917000019999999999999999917000019999999999999999917
0000719999999999999991770000771999999999999917770000777199999999
9991777700007777199999999917777700007777711111111177777700007777
7777777777777777000000000000000000000000000000000000000000000000
00000000}
ShowHint = False
ParentShowHint = False
Alignment = taCenter
end
object bt_next: TExplorerButton
Left = 212
Top = 4
Width = 50
Height = 40
Hint = 'Find next match'
Caption = 'Next...'
OnClick = bt_nextClick
Bitmap.Data = {
66010000424D6601000000000000760000002800000014000000140000000100
040000000000F000000000000000000000001000000010000000000000000000
8000008000000080800080000000800080008080000080808000C0C0C0000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
3333333300003333333333333333333300003333333330033003300300003333
3333300330033003000033303333333333333333000033000333333333333333
000030F000333333333333330000330F000333333333333300003330F0000000
73333333000033330F0078887033333300003333300788FF8703333300003333
30788888F877333300003333308888888F80333300003333307888888F803333
000033333078FF8888803333000033333777FF88887733330000333333077888
8703333300003333333077777033333300003333333370007333333300003333
33333333333333330000}
ShowHint = False
ParentShowHint = False
Enabled = False
Alignment = taCenter
end
object Label2: TLabel
Left = 492
Top = 8
Width = 76
Height = 13
Caption = 'Active Index:'
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
end
object bt_info: TExplorerButton
Left = 264
Top = 4
Width = 50
Height = 40
Hint = 'Toggle database info on/off'
Caption = 'Info'
OnClick = bt_infoClick
Bitmap.Data = {
F6000000424DF600000000000000760000002800000010000000100000000100
0400000000008000000000000000000000001000000010000000000000000000
BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777707777
77777777770B0777777777777770777777777777777777777777777777707777
77777777770B077777777777770B077777777777770B077777777777770BB077
777777770770BB0777777770B0770BB077777770B07770B077777770BB000BB0
777777770BBBBB07777777777000007777777777777777777777}
Alignment = taCenter
end
object ExplorerButton1: TExplorerButton
Left = 628
Top = 4
Width = 50
Height = 40
Hint = 'Set fonts and fixed columns'
Caption = 'Options'
Bitmap.Data = {
66010000424D6601000000000000760000002800000014000000140000000100
040000000000F000000000000000000000001000000010000000000000000000
BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
7777777700007777700000007777777700007777700F00007777777700007777
700F00007777777700007777700F000077777777000077700000000000777777
00007788888888888887777700007777770F0FF07777777700007777770F0000
077BB77700007777000FFFFFF077B77700007770FFFFFF000077779700007770
F0F0F070FF07799700007770FFFFF0770FF0777700007770FFF0F07770FF07E7
0000770FF0FFF077770F0077000070FF00F00777777000070000700070F07777
E77700770000777770F07797EE7BB77700007777770077997777B77700007777
77777777777777770000}
Alignment = taCenter
DropDownMenu = PopupMenu2
end
object wwDBGrid1: TwwDBGrid
Left = 0
Top = 49
Width = 699
Height = 317
TitleColor = clAqua
FixedCols = 0
ShowHorzScrollBar = True
Align = alClient
Color = clSilver
DataSource = wwDataSource1
KeyOptions = [dgEnterToTab]
Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit, dgWordWrap, dgPerfectRowFit]
TabOrder = 1
TitleAlignment = taLeftJustify
TitleFont.Color = clWindowText
TitleFont.Height = -11
TitleFont.Name = 'MS Sans Serif'
TitleFont.Style = []
TitleLines = 1
TitleButtons = False
Visible = False
IndicatorColor = icBlack
end
object StatusBar1: TStatusBar
Left = 0
Top = 366
Width = 699
Height = 25
Panels = <
item
Width = 300
end
item
Width = 120
end
item
Width = 130
end>
SimplePanel = False
end
object DBNavigator1: TDBNavigator
Left = 368
Top = 4
Width = 120
Height = 41
DataSource = wwDataSource1
VisibleButtons = [nbFirst, nbPrior, nbNext, nbLast]
Ctl3D = False
ParentCtl3D = False
ParentShowHint = False
ShowHint = False
TabOrder = 2
end
object wwKeyCombo1: TwwKeyCombo
Left = 492
Top = 24
Width = 129
Height = 21
Hint = 'Select the tables index to be used'
Style = csDropDownList
Enabled = False
ItemHeight = 13
TabOrder = 3
ShowAllIndexes = True
PrimaryKeyName = 'PrimaryKey'
end
object LMDPanelFill1: TLMDPanelFill
Left = 4
Top = 56
Width = 485
Height = 297
Alignment = agTopLeft
Bevel.StyleInner = bvLowered
Bevel.StyleOuter = bvRaised
Bevel.WidthOuter = 2
Bevel.BorderWidth = 1
Bevel.BorderInnerWidth = 1
Bevel.StandardStyle = lsWindowBorder
Caption = 'Database Info:'
Color = clWhite
Font.Color = clRed
Font.Height = -16
Font.Name = 'Arial'
Font.Style = [fsBold]
FontFx.Style = tdRaised
FontFx.PosX = 1
FontFx.PosY = 39
ParentFont = False
TabOrder = 4
Visible = False
object LMDSimpleLabel1: TLMDSimpleLabel
Left = 8
Top = 64
Width = 73
Height = 18
Caption = 'Table Name:'
Font.Color = clBlack
Font.Height = -12
Font.Name = 'Arial'
Font.Style = [fsBold]
Font3D.Style = tdRaised
ParentFont = False
end
object LMDSimpleLabel2: TLMDSimpleLabel
Left = 100
Top = 64
Width = 12
Height = 18
Caption = '...'
Font.Color = clBlack
Font.Height = -12
Font.Name = 'Arial'
Font.Style = [fsBold]
Font3D.Style = tdRaised
ParentFont = False
end
object LMDSimpleLabel7: TLMDSimpleLabel
Left = 8
Top = 82
Width = 68
Height = 18
Caption = 'Field Count:'
Font.Color = clBlack
Font.Height = -12
Font.Name = 'Arial'
Font.Style = [fsBold]
Font3D.Style = tdRaised
ParentFont = False
end
object LMDSimpleLabel8: TLMDSimpleLabel
Left = 100
Top = 82
Width = 12
Height = 18
Caption = '...'
Font.Color = clBlack
Font.Height = -12
Font.Name = 'Arial'
Font.Style = [fsBold]
Font3D.Style = tdRaised
ParentFont = False
end
object LMDSimpleLabel9: TLMDSimpleLabel
Left = 8
Top = 100
Width = 83
Height = 18
Caption = 'Record Count:'
Font.Color = clBlack
Font.Height = -12
Font.Name = 'Arial'
Font.Style = [fsBold]
Font3D.Style = tdRaised
ParentFont = False
end
object LMDSimpleLabel10: TLMDSimpleLabel
Left = 100
Top = 100
Width = 12
Height = 18
Caption = '...'
Font.Color = clBlack
Font.Height = -12
Font.Name = 'Arial'
Font.Style = [fsBold]
Font3D.Style = tdRaised
ParentFont = False
end
object LMDListBox1: TLMDListBox
Left = 8
Top = 124
Width = 465
Height = 61
Bevel.Mode = bmStandard
Bevel.StandardStyle = lsFrameInset
Color = clSilver
Font.Color = clBlack
Font.Height = -12
Font.Name = 'Arial'
Font.Style = []
HeaderFont.Color = clBlack
HeaderFont.Height = -12
HeaderFont.Name = 'Arial'
HeaderFont.Style = [fsBold]
HeaderHeight = 18
Sections.Sections = (
#0'103'#0'Index'
#0'356'#0'Fields')
TabOrder = 0
end
object LMDListBox2: TLMDListBox
Left = 8
Top = 192
Width = 465
Height = 97
Bevel.Mode = bmStandard
Bevel.StandardStyle = lsFrameInset
Color = clSilver
Font.Color = clBlack
Font.Height = -12
Font.Name = 'Arial'
Font.Style = []
HeaderFont.Color = clBlack
HeaderFont.Height = -12
HeaderFont.Name = 'Arial'
HeaderFont.Style = [fsBold]
HeaderHeight = 18
Sections.Sections = (
#0'130'#0'Field Name'
#0'114'#0'Data Type'
#0'112'#0'Field Class'
#0'59'#0'Required'
#0'44'#0'Size')
TabOrder = 1
end
end
object LMDApplicationCtrl1: TLMDApplicationCtrl
Icon.Data = {<image001.ico>}
HelpFile = 'DELPHI.HLP'
Company = 'UweR. Developement'
Version = '1.0'
Left = 536
Top = 324
end
object LMDForm1: TLMDForm
Effect = deExplodeExt
IniLink = LMDIniCtrl1
IniUse = ioUseLink
Section = 'App'
Options = [foAutoCenter]
Left = 508
Top = 324
end
object LMDFormStyler1: TLMDFormStyler
Font.Color = clRed
Font.Height = -16
Font.Name = 'Times New Roman'
Font.Style = [fsBold]
Options = [fsAdjustRect, fsUseFontColor, fsInactiveGradient, fsUseFormCaption]
Left = 480
Top = 324
end
object Database1: TDatabase
Connected = True
DatabaseName = 'ROS'
DriverName = 'STANDARD'
SessionName = 'Default'
Left = 452
Top = 324
end
object wwTable1: TwwTable
DatabaseName = 'ROS'
SyncSQLByRange = True
NarrowSearch = False
ValidateWithMask = True
Left = 4
Top = 336
end
object wwDataSource1: TwwDataSource
AutoEdit = False
DataSet = wwTable1
OnDataChange = wwDataSource1DataChange
Left = 36
Top = 336
end
object wwFilterDialog1: TwwFilterDialog
DataSource = wwDataSource1
SortBy = fdSortByFieldNo
Caption = 'Apply Filter to Data'
FilterMethod = fdByFilter
DefaultMatchType = fdMatchStart
DefaultFilterBy = fdSmartFilter
Left = 424
Top = 324
end
object wwLocateDialog1: TwwLocateDialog
Caption = 'Locate Field Value'
DataSource = wwDataSource1
MatchType = mtPartialMatchStart
CaseSensitive = False
SortFields = fsSortByFieldNo
DefaultButton = dbFindNext
FieldSelection = fsAllFields
ShowMessages = True
Left = 396
Top = 324
end
object LMDIniCtrl1: TLMDIniCtrl
IniFile = 'dview.ini'
IniPrefix = ppFixed
MaxEntries = 50
Target = itIniFile
Left = 368
Top = 324
end
object PopupMenu1: TPopupMenu
Left = 68
Top = 336
object Browse1: TMenuItem
Caption = '&Browse'
ShortCut = 0
OnClick = bt_openClick
end
object N1: TMenuItem
Caption = '-'
ShortCut = 0
end
object N11: TMenuItem
Caption = '1'
ShortCut = 0
OnClick = N11Click
end
object N21: TMenuItem
Caption = '2'
ShortCut = 0
OnClick = N11Click
end
object N31: TMenuItem
Caption = '3'
ShortCut = 0
OnClick = N11Click
end
object N41: TMenuItem
Caption = '4'
ShortCut = 0
OnClick = N11Click
end
object N51: TMenuItem
Caption = '5'
ShortCut = 0
OnClick = N11Click
end
end
object LMDSysMenu1: TLMDSysMenu
Items.Strings = (
'&About')
Left = 564
Top = 324
end
object PopupMenu2: TPopupMenu
Left = 620
Top = 324
object GridFont1: TMenuItem
Caption = 'Grid Font'
ShortCut = 0
OnClick = GridFont1Click
end
object HeaderFont1: TMenuItem
Caption = 'Header Font'
ShortCut = 0
OnClick = HeaderFont1Click
end
object FixedColumns1: TMenuItem
Caption = 'Fixed Columns'
ShortCut = 0
OnClick = FixedColumns1Click
end
end
object FontDialog1: TFontDialog
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
Device = fdBoth
MinFontSize = 0
MaxFontSize = 0
Left = 592
Top = 328
end
end